home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / qsrc_dsk.zip / MODEL / WIDGLOGO.SPR < prev    next >
Text File  |  1991-12-21  |  4KB  |  106 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/21/91            WIDGLOGO.SPR               22:06:30 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Lisa C. Slater and Steven E. Arnott                     ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1991                                      ║
  10. *       ║ Application developed for _Using FoxPro 2_              ║
  11. *       ║ Que Publishing Corporation                              ║
  12. *       ║ ISBN 0-88022-703-6                                      ║
  13. *       ║                                                         ║
  14. *       ║ Description:                                            ║
  15. *       ║ This program was automatically generated by GENSCRN.    ║
  16. *       ║                                                         ║
  17. *       ╙─────────────────────────────────────────────────────────╜
  18.  
  19.  
  20. #REGION 0
  21. REGIONAL m.currarea, m.talkstat, m.compstat
  22.  
  23. IF SET("TALK") = "ON"
  24.     SET TALK OFF
  25.     m.talkstat = "ON"
  26. ELSE
  27.     m.talkstat = "OFF"
  28. ENDIF
  29. m.compstat = SET("COMPATIBLE")
  30. SET COMPATIBLE FOXPLUS
  31.  
  32. *       ╓─────────────────────────────────────────────────────────╖
  33. *       ║                                                         ║
  34. *       ║                 WIDGLOGO Screen Layout                  ║
  35. *       ║                                                         ║
  36. *       ╙─────────────────────────────────────────────────────────╜
  37. *
  38.  
  39. #REGION 1
  40. @ 2,7,8,19 BOX "████████░"
  41. @ 2,23,8,36 BOX "████████░"
  42. @ 2,26,6,28 BOX REPLICATE(" ",8)+" "
  43. @ 2,29,4,30 BOX REPLICATE(" ",8)+" "
  44. @ 2,31,6,33 BOX REPLICATE(" ",8)+" "
  45. @ 4,12,6,14 BOX REPLICATE(" ",8)+" "
  46. @ 2,41,8,54 BOX "████████░"
  47. @ 2,44,6,46 BOX REPLICATE(" ",8)+" "
  48. @ 2,47,6,49 BOX REPLICATE(" ",8)+" "
  49. @ 2,49,6,51 BOX REPLICATE(" ",8)+" "
  50. @ 2,41,8,54 BOX "████████░"
  51. @ 2,44,6,46 BOX REPLICATE(" ",8)+" "
  52. @ 2,47,6,49 BOX REPLICATE(" ",8)+" "
  53. @ 2,49,6,51 BOX REPLICATE(" ",8)+" "
  54. @ 2,52,6,54 BOX REPLICATE(" ",8)+" "
  55. @ 4,57 SAY "Executive "
  56. @ 6,59 SAY "Information"
  57. @ 8,62 SAY "System"
  58. @ 0,14 SAY "Que's USING FOXPRO 2 Model Application..."
  59. @ 2,56 SAY "An"
  60. @ 3,20,9,21 BOX REPLICATE("▒",8)+"▒"
  61. @ 9,8,9,21 BOX REPLICATE("▒",8)+"▒"
  62. @ 9,25,9,38 BOX REPLICATE("▒",8)+"▒"
  63. @ 3,37,9,38 BOX REPLICATE("▒",8)+"▒"
  64. @ 3,26,6,27 BOX REPLICATE("▒",8)+"▒"
  65. @ 4,12,4,13 BOX REPLICATE("▒",8)+"▒"
  66. @ 3,44,6,45 BOX REPLICATE("▒",8)+"▒"
  67. @ 9,42,9,56 BOX REPLICATE("▒",8)+"▒"
  68. @ 8,55,8,56 BOX REPLICATE("▒",8)+"▒"
  69. @ 4,12,6,13 BOX REPLICATE("▒",8)+"▒"
  70. @ 6,31,6,32 BOX REPLICATE("▒",8)+"▒"
  71. @ 4,13,4,14 BOX REPLICATE("▒",8)+"▒"
  72.  
  73.  
  74.  
  75. READ CYCLE ;
  76.     WHEN .f.
  77.  
  78.  
  79. #REGION 0
  80. IF m.talkstat = "ON"
  81.     SET TALK ON
  82. ENDIF
  83. IF m.compstat = "ON"
  84.     SET COMPATIBLE ON
  85. ENDIF
  86.  
  87.  
  88. *       ╓─────────────────────────────────────────────────────────╖
  89. *       ║                                                         ║
  90. *       ║                  WIDGLOGO Cleanup Code                  ║
  91. *       ║                                                         ║
  92. *       ╙─────────────────────────────────────────────────────────╜
  93. *
  94.  
  95. #REGION 1
  96. SET CURSOR OFF
  97. FOR x = 1 TO 8
  98.    WAIT "" TIMEOUT .05
  99.    SCROLL 0,0,20,79,-1,0
  100. ENDFOR
  101. FOR x = 1 TO 36 STEP 1
  102.    @ 7,40-x FILL TO 18,40 COLOR SCHEME 10
  103.    @ 7,39 FILL TO 18,39+x COLOR SCHEME 10
  104. ENDFOR
  105. SET CURSOR ON
  106.